home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / UVE138.ZIP / EXAMPLES.ZIP / FONTDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-08  |  1.6 KB  |  56 lines
  1. {$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
  2. {$M 16384,0,655360}
  3.  
  4. {
  5. FONTDEMO.PAS
  6. UVE32 font demonstration.
  7. }
  8.  
  9. uses     crt,uve32;
  10.  
  11. var    i:integer;
  12. begin
  13.     ia_inituve;
  14.     ia_loadpalette('fire.pal',pcxpal);
  15.     for i:=0 to 14 do ia_loadfont(i);
  16.     ia_powerup;
  17.     ia_setpalette(pcxpal);
  18.  
  19.     ia_doframe;
  20.     for i:=0 to 14 do begin
  21.         ia_setfontattr(i,plain,proportional,horizontal,255,false,0);
  22.         ia_printstr(hidden,-32768,i*13,'ABCDEFGabcdefg1234567890',15);
  23.     end;
  24.     ia_doframepart3;
  25.     repeat until keypressed;
  26.     while keypressed do readkey;
  27.  
  28.     ia_doframe;
  29.     ia_setfontattr(8,plain,proportional,horizontal,255,false,0);
  30.     ia_printstr(hidden,10,10,'Plain texture',15);
  31.     ia_setfontattr(8,fire,proportional,horizontal,255,false,0);
  32.     ia_printstr(hidden,10,25,'Fire texture',15);
  33.     ia_setfontattr(8,plain,proportional,horizontal,255,false,0);
  34.     ia_printstr(hidden,10,40,'Horizontal',15);
  35.     ia_setfontattr(8,plain,proportional,vertical,255,false,0);
  36.     ia_printstr(hidden,10,55,'Vertical',15);
  37.  
  38.     ia_setfontattr(8,plain,proportional,horizontal,255,false,0);
  39.     ia_printstr(hidden,160,10,'Proportional iiimmm',15);
  40.     ia_setfontattr(8,plain,fixed,horizontal,255,false,0);
  41.     ia_printstr(hidden,160,25,'Fixed iiimmm',15);
  42.  
  43.     ia_setfontattr(8,plain,proportional,horizontal,255,false,0);
  44.     ia_printstr(hidden,160,55,'Color',12);
  45.     ia_printstr(hidden,160,70,'Color',10);
  46.     ia_printstr(hidden,160,85,'Color',9);
  47.  
  48.     ia_setfontattr(8,plain,proportional,horizontal,255,true,8);
  49.     ia_printstr(hidden,160,115,'Shadow',15);
  50.  
  51.     ia_doframepart3;
  52.     repeat until keypressed;
  53.     while keypressed do readkey;
  54.  
  55.     ia_shutdown;
  56. end.